Creating a draft document sample
See Also
Description

The following sample shows how to create a draft invoice document.
Sub AddInvoice_Click()

    Dim RetVal As Long

    Dim ErrCode As Long

    Dim ErrMsg As String



    'Create the Documents object

    Dim vDrafts As SAPbobsCOM.Documents

    Set vDrafts = vCmp.GetBusinessObject(oDrafts)



    'Set values to the fields

    vDrafts.DocObjectCode = oInvoices

    vDrafts.CardCode = "BP234"

    vDrafts.HandWritten = tNO

    vDrafts.DocDate = "21/8/2003"

    vDrafts.DocTotal = 264.6



    'Invoice Lines - Set values to the first line

    vDrafts.Lines.ItemCode = "A00023"

    vDrafts.Lines.ItemDescription = "Banana"



    vDrafts.Lines.Quantity = 50



    'Invoice Lines - Set values to the second line

    vDrafts.Lines.Add

    vDrafts.Lines.ItemCode = " A00033"

    vDrafts.Lines.ItemDescription = "Orange"



    vDrafts.Lines.Quantity = 1



    'Add the Invoice

    RetVal = vDrafts.Add



   'Check the result

    If RetVal <> 0 Then

        vCmp.GetLastError ErrCode, ErrMsg

        MsgBox ErrCode & " " & ErrMsg

    End If

 End Sub